﻿''' <summary>
''' Plasma wo ist ein Meteor? Mensch so kommen wir nicht weiter!
''' </summary>
''' <remarks></remarks>
Public Class LandschaftsTexturPlasma
    Inherits ObjektLandschaftsTextur
    Shared Frames_3 As Integer = 0
    Public Shared Property Frames_2() As Integer
        Get
            Return Frames_3
        End Get
        Set(ByVal value As Integer)
            Frames_3 += 1
            If Frames_3 > 2 Then
                Frames_3 = 0
            End If
        End Set
    End Property

    Public Sub New()
        ID = "PLASMA"
        Landschaftsname = "Plasma"
        Deckung = -1
        Tarnung = False
        KP = -1
        Ausrichtungslandschaften = New String() {"PLASMA", "METEOR"}
        Gross = False
        Frame = True
        If DataSettings.draw3D Then
            Ini3D()
        End If
        TexturenLaden(New String() {"Plasma", "Plasma+N+S", "Plasma+S+W", "Plasma+N+S+W", "Plasma+N+W", "Plasma+O+W", "Plasma+N+O+W", "Plasma+N+O", "Plasma+N+O+S", "Plasma+O+S", "Plasma+O+S+W", "Plasma+N+O+S+W", "Plasma+W", "Plasma+O", "Plasma+S", "Plasma+N"})
        Normal = 0

    End Sub
    Public Overrides Function DrawSpecialStyle(ByVal BildID As Integer, ByVal Fog As Nebelarten, ByVal Alpha As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal TerrainUntergrundID As Integer, ByVal TerrainUntergrundBildID As Integer, ByVal TerrainUntergrundID2 As Integer, ByVal TerrainUntergrundBildID2 As Integer, Optional ByVal FixedLocation As Boolean = False, Optional ByVal Top As Boolean = False) As Boolean
        Return DrawTerrainUndUntergrund(Alpha, Fog, BildID, X, Y, Frames_3, 3, TerrainUntergrundID, TerrainUntergrundBildID, TerrainUntergrundID2, TerrainUntergrundBildID2, FixedLocation, Top)
    End Function

    Public Overrides Sub Ini3D()

    End Sub

    Public Overloads Overrides Sub Malen3D(ByVal p_MatCube As Microsoft.DirectX.Matrix, ByVal Landschaft As ObjektLandschaft)

    End Sub

    Public Overrides Sub Tick()

    End Sub

    Public Overrides Function GetTerrainUntergrund() As String()
        Return New String() {"EBENE", "WUESTE", "SCHNEE"}
    End Function
End Class
''' <summary>
''' Plasma wo ist ein Meteor? Mensch so kommen wir nicht weiter!
''' </summary>
''' <remarks></remarks>
Public Class LandschaftsTexturW_Plasma
    Inherits ObjektLandschaftsTextur

    Public Sub New()
        ID = "W_PLASMA"
        Landschaftsname = "Plasma"
        Deckung = -1
        Tarnung = False
        KP = -1
        Ausrichtungslandschaften = New String() {"W_PLASMA", "W_METEOR"}
        Gross = False
        Frame = True
        If DataSettings.draw3D Then
            Ini3D()
        End If
        TexturenLaden(New String() {"W_Plasma", "W_Plasma+N+S", "W_Plasma+S+W", "W_Plasma+N+S+W", "W_Plasma+N+W", "W_Plasma+O+W", "W_Plasma+N+O+W", "W_Plasma+N+O", "W_Plasma+N+O+S", "W_Plasma+O+S", "W_Plasma+O+S+W", "W_Plasma+N+O+S+W", "W_Plasma+W", "W_Plasma+O", "W_Plasma+S", "W_Plasma+N"})
        Normal = 0

    End Sub
    Public Overrides Function DrawSpecialStyle(ByVal BildID As Integer, ByVal Fog As Nebelarten, ByVal Alpha As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal TerrainUntergrundID As Integer, ByVal TerrainUntergrundBildID As Integer, ByVal TerrainUntergrundID2 As Integer, ByVal TerrainUntergrundBildID2 As Integer, Optional ByVal FixedLocation As Boolean = False, Optional ByVal Top As Boolean = False) As Boolean
        Return DrawTerrainUndUntergrund(Alpha, Fog, BildID, X, Y, LandschaftsTexturPlasma.Frames_2, 3, TerrainUntergrundID, TerrainUntergrundBildID, TerrainUntergrundID2, TerrainUntergrundBildID2, FixedLocation, Top)
    End Function

    Public Overrides Sub Ini3D()

    End Sub

    Public Overloads Overrides Sub Malen3D(ByVal p_MatCube As Microsoft.DirectX.Matrix, ByVal Landschaft As ObjektLandschaft)

    End Sub

    Public Overrides Sub Tick()

    End Sub

    Public Overrides Function GetTerrainUntergrund() As String()
        Return New String() {"WUESTE", "EBENE", "SCHNEE"}
    End Function
End Class
''' <summary>
''' Plasma wo ist ein Meteor? Mensch so kommen wir nicht weiter!
''' </summary>
''' <remarks></remarks>
Public Class LandschaftsTexturS_Plasma
    Inherits ObjektLandschaftsTextur

    Public Sub New()
        ID = "S_PLASMA"
        Landschaftsname = "Plasma"
        Deckung = -1
        Tarnung = False
        KP = -1
        Ausrichtungslandschaften = New String() {"S_PLASMA", "S_METEOR"}
        Gross = False
        Frame = True
        If DataSettings.draw3D Then
            Ini3D()
        End If
        TexturenLaden(New String() {"S_Plasma", "S_Plasma+N+S", "S_Plasma+S+W", "S_Plasma+N+S+W", "S_Plasma+N+W", "S_Plasma+O+W", "S_Plasma+N+O+W", "S_Plasma+N+O", "S_Plasma+N+O+S", "S_Plasma+O+S", "S_Plasma+O+S+W", "S_Plasma+N+O+S+W", "S_Plasma+W", "S_Plasma+O", "S_Plasma+S", "S_Plasma+N"})
        Normal = 0

    End Sub
    Public Overrides Function DrawSpecialStyle(ByVal BildID As Integer, ByVal Fog As Nebelarten, ByVal Alpha As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal TerrainUntergrundID As Integer, ByVal TerrainUntergrundBildID As Integer, ByVal TerrainUntergrundID2 As Integer, ByVal TerrainUntergrundBildID2 As Integer, Optional ByVal FixedLocation As Boolean = False, Optional ByVal Top As Boolean = False) As Boolean
        Return DrawTerrainUndUntergrund(Alpha, Fog, BildID, X, Y, LandschaftsTexturPlasma.Frames_2, 3, TerrainUntergrundID, TerrainUntergrundBildID, TerrainUntergrundID2, TerrainUntergrundBildID2, FixedLocation, Top)
    End Function

    Public Overrides Sub Ini3D()

    End Sub

    Public Overloads Overrides Sub Malen3D(ByVal p_MatCube As Microsoft.DirectX.Matrix, ByVal Landschaft As ObjektLandschaft)

    End Sub

    Public Overrides Sub Tick()

    End Sub

    Public Overrides Function GetTerrainUntergrund() As String()
        Return New String() {"SCHNEE", "EBENE", "WUESTE"}
    End Function
End Class